home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 009a / autofc20.zip / LEDIT.TXT < prev    next >
Text File  |  1991-11-01  |  638b  |  21 lines
  1. {The following is an example of the usage of ledit.tpu:}
  2. {This is a Turbo Pascal example}
  3.  
  4. Program tryitonce;
  5.  
  6. uses dos,ledit;
  7.  
  8. var
  9.    fx :string;
  10.  
  11. {Start of main program}
  12. begin
  13.    fx := 'This is a string that is longer than forty characters.';
  14.    write('Line to edit: '); {the string fx will appear just after ': '}
  15.    fx := edit(fx,40); {edit the string fx with a limit of 40 chars}
  16.    {fx is now edited, and no more than 40 characters long}
  17.    writeln; {ledit does not assume anything about what you will do}
  18.             {with the edited line                                 }
  19.    writeln('Edited  line: ',fx);
  20. end.
  21.